home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------------
- #ifndef Zins1H
- #define Zins1H
- //---------------------------------------------------------------------------
- #include <vcl\Classes.hpp>
- #include <vcl\Controls.hpp>
- #include <vcl\StdCtrls.hpp>
- #include <vcl\Forms.hpp>
- #include <vcl\ExtCtrls.hpp>
- //---------------------------------------------------------------------------
-
- class TZins : public TObject
- {
- public:
- float Kapital;
- float Prozent;
- float Zinsen;
- void __fastcall SetKapital (String Text);
- void __fastcall SetProzent (String Text);
- void __fastcall SetZinsen (String Text);
- String __fastcall CalcKapital (void);
- String __fastcall CalcProzent (void);
- String __fastcall CalcZinsen (void);
- __fastcall TZins (void);
- };
-
- class TForm1 : public TForm
- {
- __published: // IDE-verwaltete Komponenten
- TPanel *Panel1;
- TPanel *Panel2;
- TPanel *Panel3;
- TEdit *Edit1;
- TEdit *Edit2;
- TEdit *Edit3;
- TButton *Button1;
- TButton *Button2;
- TLabel *Label1;
- void __fastcall FormCreate(TObject *Sender);
- void __fastcall Button1Click(TObject *Sender);
- void __fastcall Button2Click(TObject *Sender);
- private: // Benutzer-Deklarationen
- TZins *Zins1;
- int Modus;
- void __fastcall SetZero (void);
- public: // Benutzer-Deklarationen
- __fastcall TForm1(TComponent* Owner);
- };
- //---------------------------------------------------------------------------
- extern TForm1 *Form1;
- //---------------------------------------------------------------------------
- #endif
-